library(MASS)
data(Pima.tr)
library(arules)

X<-as.matrix(Pima.tr[1:7])
source("~/Documents/Memoire/src/Generate.R")
source("~/Documents/Memoire/src/new_data.R")
X<-X[,-1]
M<-500
#p<-300
n<-nrow(X)
p<-ncol(X)
#A<-t(X)%*%X/n+diag(p)+0.3
p<-20
#p<-50#p 50 seed 3
#set.seed(3)
A<-matrix(rcauchy(p*p,0.001),nrow=p)
#source("R/Covariance.R")
#diag(A)<-abs(diag(A))
#A<-matrix(c(1,-0.98,-0.9,-0.99,-0.98,1,0.9,-0.9,-0.9,0.9,1,0.97,-0.99,-0.99,0.97,1),nrow=4)
#A<-matrix(c(1,-0.95,-0.97,-0.94,0.97,-0.95,1,-0.99,-0.99,-0.99,0.97,0.99,1,-0.99,0.99,-0.94,-0.99,-0.99,1,-0.99,-0.97,-0.99,0.99,-0.99,1),nrow=5)
A<-t(A)%*%A
#A<-AA
#p<-9
#A<-diag(1,p)
#A<-matrix(c(1,2,3,1,0,0,2,0,0),nrow=3)
 
g<-rep(0,p)
a<-rep(3,p)
m<-rep(0,p)


